home *** CD-ROM | disk | FTP | other *** search
/ Safarir 3 / SafTV-CD3.iso / pc / Bonus / Dessins Animés / static / jeux / tetris.swf / scripts / frame_12 / DoAction.as
Text File  |  2001-11-21  |  491b  |  29 lines
  1. tc = tn;
  2. tellTarget("c" add tc)
  3. {
  4.    nextFrame();
  5. }
  6. tn = random("7") + "1";
  7. n = "0";
  8. while(n < "4")
  9. {
  10.    n += "1";
  11.    tellTarget("bn" add eval("x" add tc add "1" add n) add eval("y" add tc add "1" add n))
  12.    {
  13.       gotoAndStop(1);
  14.    }
  15. }
  16. n = "0";
  17. while(n < "4")
  18. {
  19.    n += "1";
  20.    tellTarget("bn" add eval("x" add tn add "1" add n) add eval("y" add tn add "1" add n))
  21.    {
  22.       gotoAndStop(eval("/:tn") + "1");
  23.    }
  24. }
  25. ts = "1";
  26. x = "3";
  27. y = "0";
  28. call("addbox");
  29.